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ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
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MODULE setmain ( Bente VOreee". 


MAIN=set$sta 
ADDRESSING RODE (EXTERNAL =GENER RAL 
NONE XTERNAL=LONG_ RELATIVE} 


BEGIN 
i 
i peeeneerereeneeeeeereneeeerereererererererreeeeeeeeeeeeneneeeeeeeeeeeeeeeees 


ie COPYRIGHT (oD 1978, 1980, 1982, 1984 BY 
ie DIGITAL FQuiPn CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RES RVED” 


:* THIS SOFTWARE IS A gt pe UNDER A LICENSE AND MAY BE USED AND corres 
:# ONLY IN ACCORDANCE WITH THE TERMS OF reais” LICENSE AND WITH THE 
t# INCLUSION OF a @ ABOVE COPYRi cnt NOTICE. THIS SOF TWAR E OR ANY OTHER 
Hd COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


& 
* 
® 
& 
® 
® 
& 
® 
® 
® 
ie TRANSFERRED. . 
te 
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® 
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® 
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ie THE gh IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 

DIGITAL ASSUM 


ee BILITY FOR THE USE OR RELIABILITY OF ITS 


; ES NO IBIL 
:# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; 00 ‘ 

5 00 'ee 

3 00 ! 

: +4 ; FACILITY: SET utility 

; 003 i ABSTRACT 

3 S34 this module contains the command processing and dispatch routines. 
; 3 i ENVIRONMENT: 

; : VAX native, user mode. 

; ; AUTHOR: Gerry Smith CREATION DATE: 10-Mar-1983 

3 5 1 | MODIFIED BY: 

; ; ! v03-006 gi vOss6 Jake VanNoy 8-APR-1984 

; : AV ates that option=keyword caused in not matching 
; 050 1 : 

3 51 ‘ v03-005 BLS0291 Benn Schre thor 24-MAR-1984 

; ag 1} Move SET PASSWORD into SETP 

; S41 | VO03-006 PRBO320 aul Beck 11-Mar-1984 12:56 

3 2? Add entry for set PELUSTER 

; 3$ ' v03-003 GAS0175 Gerry Smith 25-Aug-1983 


| 
-Sep-1 1 AX-11 Bliss-32 V4.0-742 Pp 
1B-bep-1944 99: m 18 eeroT sae Sse facta soe age 45 


Include SET LOGINS, vnich was inadvertently left out. 


; 38 5 Add SHOW BROADCAST. | 
; 60 ii v03-002 GASO153 Gerry Smith 7=Jul=1983 
6} Add SET AUDIT. 

; e§ ; v03-001 GASO115 Gerry Smith 46-Apr-1983 

: 65 13 

> 66 1i 
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LIBRARY *SYSSLIBRARY:STARLET'; 


10 
1b-Sep-19 4 90:43! 
14-Sep-1984 :09:1 CLIUTL.SRCISE 


! VAX/VMS common definitions 


AX-11 Bliss-32 V4.0-742 
TMAIN.B32; 1 


Macro to set up two associated tables. The first table is a List of 
descriptor addresses. These Concer iotors contain the option names. 
The second table is a corresponding List of addresses of option routines. 


If a new option is added to SET, all that is required in this 

module is to add one Line of code, the option name, e.g. WORKING SET. 
Then, the name of the global routine that is dispatched to from this 
routine will be named SETSWORKING. SET. 


> 
o 
D 
oO 


option_name Coption] = ZEXACTSTRING(4, 0, option), 
option_address Coption] = ZNAME(ZSTRING('set$’ ,ZSTRING(option)))%, 
option_declare Coption] = XNAME(ZSTRING('set$' .ZSTRING(option))) : NOVALUEZ, 
make table (name) = 

CITERAL ZNAME(XSTRING(name,'_table_Length')) = ZLENGTH = 1; 

EXTERNAL ROUTINE option_declare(ZREMAINING); 


INAME (ZSTRING(name,' get ion }) : VECTORCZLENGTH = 1) 
INITIAL (option_nameTZREMAINING)), 


ZNAME (ZSTRING(mame,*_routine’)) : VECTORCZLENGTH = 1) 
INITIAL (option_address(ZREMAINING) );%; 


10 
SEMAN 1E-Sep-1964 00:45:16 YANGt BL ing=32 40-742. Page 


FORWARD ROUTINE 


set$start, ' Main routine for SET 

handler; ! Condition handler for SET 
exten, ROUTINE 

LibSput_output, 

cli$get_value, ! Get qualifier yelue 

cliS$present; ! Test if qualifier present 
GLOBAL setSexit_status : seer orks) 

INITIAL(1); 


SSHR_MSGDEF (SET, 119, LOCAL 

’ (badlogic, errors); 
i Set up a table of all options, and another table pointing to the address 
} of the routine for each option. 


make table (set, 
accounting, 
udit 


a ° 
broadcast, 
card_reader, 
cluster, 


ay 
device, 
directory, 
e, 
login, 
magtape, 
printer, 
process 
protection, 
rms_default, 
terminal, 
time, 
volume, 
working set); 
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SEMAN yErBeort9ee O0:45:1¢  yAKatT Bling 32 v4.0-762, 
pyr ae set$start = 


i This is the main program. It gathers all the command inputs, and then 
: dispatches to the appropriate routines. 
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status, 

option : SBBLOCK(dsc$c_s_bin]; 
ENABLE handler; ! Enable the condition handler 
' 


i Interrogate the CLI to determine which option one was requested, and 
: dispatch to the appropriate routine. 


OWONOUNELS WO OOVNOAUE WH —"00 


Sinit_dyndesc (option); 
Ag (status = cli$get_value(ZASCID ‘OPTION’, option)) 


wr 


BEGIN 
SIGNAL_STOP(.status); 
END; 
option(dsc$w_length] = MINU (.option[dsc$w_length], 4); 
' 

: look for xxx=yyy to trim Length of search string. 


Fen fneras nee Tee on ent tent dectu_tongthd, -option(Cdsc$a_pointer], ZASCII ‘="); 
: r 
optTontdsc$u_ length) = .loc char - .option(dsc$a_pointer); 


igt.pherateey ine (.option(dsc$w_length], .option{[dsc$a_pointer], %ASCII *:"); 
If .loc i oF NEQ 0 THEN 
optTon(dsc$w_length] = .loc_char - .option{dsc$a_pointer]; 
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setSexit_status = set$_badlogic; ! if loop fails, exit with error 
INCR index FROM 0 TO set_table_length - 1 DO 


IF CHSEQL(.option{dsc$w_length], sept ont de5Se_poipeerd. 
. -option(dsc$w_length], set_optionl. index]) 
BEGIN 

goctoutestetye = 1; 

(.set_routinel.index])(); 

EXITLOOP 
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; ] 138 If -gorSexit_stotus NEQ set$_badlogic 
; ; 138 setSexit_status = .setSexit_status OR sts$m_inhib_msg; 
3 05 200 RETURN .setSexit_status; ! Exit 


“TITLE SETMAIN 

IDENT Fee 000\ 

-PSECT SPLITS,NOWRT,NOEXE,2 
0000 P.AAB: .ASCII \OPTION\<0><0> 
$008 P.AAA: .LONG 1969 1M 
000C “ADDRESS P. Het 

-PSECT SOWNS,NOEXE,2 


00 00 4& 4F 49 


4F 43 43 41 00000 SET_OPTION: 
*ASCII = \ACCON 

49 44 33 ay 80008 eASCII = \AUDIN 
41 4F 52 4 0008 *ASCII \BROA\ 
4a ¢ 41 4 000 ASCII Maer 
53 4C 4 001 *ASCII = \CLUS\ 
+ 9 41 44 00014 eASCII = \DAY\<0> 
4 § 45 44 00018 eASCII \DEVIN 
$2 49 44 igh «ASCII = \DIRE\ 
4 rt 49 46 000 eASCII \FILEN 
49 47 4F 4C 00024 *ASCII \LOGI\ 
54 47 41 40 00028 eASCII = \MAGT 
¢§ 49 5 0 0002C eASCII = \PRIN\ 
435 4F 5 0030 eASCII = \PROC\ 
ee 4F 5 00 »ASCII = \PROT\ 
F 23 40 00 eASCII = \RMS_\ 
4D 52 45 54 000 5 -ASCII \TERA\ 
45 4D 49 54 0004 eASCII = \TIME\ 
55 r+) &F § Bpbes eASCIIT = \VOLUN 
48 52. 4F 0048 sASCII = \WORK\ 


000000006 000000006 000000006 000000006 000000006 000000006 0004C SET_ROUTINE: 
- ADDRESS Fe TSAC CONT INS SETSAUDIT, 


000000006 000000006 000000006 000000006 000000006 000000006 SETSBROADCAST, TSCARD ADER. 
000000006 000000006 000000006 000000006 000000006 090000006 doo7e SETSCLUSTER, SE it seth” 
SE TSMAGTAPE "ge tEpal TER seuseocess. - 
SETSPROTECT ION, Sesh MS_DEF AI 
SETSTERMINAL, SET Tine: “SETSVOLUME 


SETSWORKING_ “eet 
.PSECT S$GLOBAL$,NOEXE,2 
00000001 00000 SETSEXIT STATUS: 


OUTPUT CLISGET VALUE 
ENT SETSACC OUNT ING 
1, SET$BROADCAST 


6E 


6€ 


9E 
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SEXTRN 
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003¢ 00000 saenhaeeraae 
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000000006 4 
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65 00771122 F 
00000000°EF 44 
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00771122 
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et ay > Se et Ge o 4 + 4 
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Dd 
0 
1 
A 
3 
1 
Dd 
Dd 
1 
A 
Dd 
D 
Dd 
F 
1 
p 


READER 
USTER, Rist 

st SDIRECTORY 
LE, $eT LOGIN, 
GTAPE, SETSPRINTER 
PROCESS: S SETSPROTECTION 
FERATHAL SS SeTsrne 
VOLUME, SETSWORKING_ SET 


CARD 
CLUS 
DEV 
FI 


R3,R4,R5 
_STATUS, R5 


P bISGET VALUE 


LIBSSTOP 
ON, RO 


— 


, RO 

+8 OPTI 
ast, OPTION. @OPTION+4 

MT 
toc CHAR 
OPT 10Ne4 LOC_CHAR, OPTION 

OPTION, SOPTION 

R1 

Loc. CHAR 


as LOC_CHAR, OPTION 
#7803170, SETSEXIT_STATUS 


seT OPTION ONC INDEX) 
one @OPTION+4, @(SP)+ 


SETSEXIT_STATUS 
Set _ROUTINELTNDEXS, RO 


7$ 
_SfaTUS, #7803170 


XIT_STATUS+3 


sex 
TATOS, RO 


‘om "nse 


Page 


1$-Bep-1966 00:45:16 YANG Oh ing82 40-742. Page 08 
009? a 118: wane =t3p"onnins mrt 
0 | 


UR 
AA MOVQ ; (CaP) -(SP) 


aE CALLS #3, HANDLER 
08 RET 


3; Routine Size: 182 bytes, Routine Base: $CODE$ + 0000 


1EcBepct9Re 00:45:16 yARett BLing=32 40-742 


wr 
= 
2 
Leen 


NE handler (sigargs, mechargs) = 


uw 


s 2 i This routine is a condition handler established by main 
3 ; routine. It saves the most severe condit ion for tne lan status. 
3 14 1 ieee 
; 215 1 
3 1 1 
ae 4) 1 sigargs : REF LOCK, 
3 13 mechargs : REF LOCK; 
3 18 signame = sigargs(chf$l_sig_name] : SBBLOCK; ! Name of signal 
: 1 
; : i If .setSexit_status EQL 1 ! If no A etn yet, use 
3 3 9 THEN setSexit_status = .signame; ! this 
3 $ 8 ¢ a NOT .sign ‘ongne ! If an error signal 
3 Signese sts$y. severity] ! and severity is worse 
3 8 4 GTRU’ LOCKCsetSéxit_status, wate severity] ! than current saved severity 
3 5 THEN setSexit Status = .signame ! then save it for exit 
3 1 ; RETURN ss$_resignal; ! Resignal to get message 
3 2 8 END; 
0004 00000 HANDLER:.WORD Save R2 
52 00000000° Ff 7 se MOV SETSEXIT STATUS. R2 
50 06 AC 4 C€ () ADDL #4, SIGARGS, 
01 6¢ D1 O00E CMPL = SETSEXIT STATUS. rh 
03 12 0001 BNEQ 1$ 
62 60 DO 000135 VL (RO), SETSEAIT STATUS 
OF E Bog 1$: BLBS (RO) 
51 62 03 0 EF 0001 EXTZv #0, a3. SETSEXIT_STATUS, R1 
51 0 ° ED 0001 CMPZV) «#0, #35, (RO), RI 
0 8 00 BLEQU 2$ 
$¢ 60 00 MOVL cn SETSEXIT_STATUS 
5 0918 8F ¢ 90 8 2s: MOVZUL #2328, RO 


; Routine Size: 46 bytes, Routine Base: S$CODES + 00B6 


vO4-000 {terme 98: 18 
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CLIUTL.SRCISETMAIN.B32; 1 


-EXTRN LIBSSTOP 


3 PSECT SUMMARY 

3 Name Bytes Attributes 

$ SGLOBALS 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3; SOWNS 152 WNOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS 8 NOVEC, T, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3; SCODES 228 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 

; woccenmn= Symbols -<------ Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 18 0 581 00:01.0 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SETMAIN/OBJ=OBJ$:SETMAIN MSRC$:SETMAIN/UPDATE=(ENH$: SETMAIN) 


Size: 228 
ne: 


1 Ut Used: 
Compilation Compl 


COMMAND QUALIFIERS 


ode + 172 data bytes 


Lexemes/CPU-Min: 23956 
Memor 79 


pages 
ete 
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